home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
How Would You Survive?
/
How Would You Survive (1995)(Grolier)[Mac-PC].iso
/
mac
/
AINDEX.DIR
/
00749_Script_aRefLink
< prev
next >
Wrap
Text File
|
1995-09-06
|
1KB
|
41 lines
--òò aRefLink
property pCast, pSprite , pRange, pFunctionCast
on birth me , theCast ,theSprite,theRange,theFunctionCast
set pCast = theCast
set pSprite = theSprite
set pRange = theRange
set pFunctionCast = theFunctionCast
return me
end
--on clickRefLink me , theOffset
-- set theHOffset = the mouseH
-- set theVOffset = the mouseV
-- --put theHOffset , theVOffset
--
-- set thisRec = getAt(pHotSpots,1)
-- set rleft = getAt(thisRec,1)
-- set rtop = getAt(thisRec,2)
-- set rright = getAt(thisRec,3)
-- set rbottom = getAt(thisRec,4)
-- if ((theHOffset > rleft and theHOffset < rright ) ┬
-- and (theVOffset > rtop and theVOffset < rbottom ) ) then
-- put "HIT"
-- else
-- put "MISS",rleft,rtop,rright,rbottom
-- end if
--end
--rect(left, top, right, bottom)
on showRefLinkIcon me , theOffset
set subFunctionOffset = theOffset/26
set the castNum of sprite 40 = (pCast + subFunctionOffset)
set the locH of sprite 40 = 320
set the locV of sprite 40 = 240
end
on clearRefLinkIcon me
set the locH of sprite 40 = -300
set the locV of sprite 40 = -200
end